home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / e / cha_source.lha / cha_source / test_oss_output.e < prev    next >
Encoding:
Text File  |  1999-12-18  |  1009 b   |  27 lines
  1. /*==========================================================================+
  2. | test_oss_output.e                                                         |
  3. | test writing to oss                                                       |
  4. | test passed                                                               |
  5. +--------------------------------------------------------------------------*/
  6.  
  7. MODULE '*oss', '*oss_output'
  8.  
  9. /*-------------------------------------------------------------------------*/
  10.  
  11. PROC main() HANDLE
  12.     DEF i = 0, oo = NIL : PTR TO oss_output
  13.     -> initialise
  14.     oss_init()
  15.     NEW oo.oss_output(1)
  16.     -> check stuff
  17.     WHILE oo.write(Fsin(i ! * 3.141593 * 440.0 / 22050.0)) DO i++
  18. EXCEPT DO
  19.     END oo
  20.     oss_cleanup()
  21.     -> report errors
  22. ENDPROC IF exception THEN 5 ELSE 0
  23.  
  24. /*--------------------------------------------------------------------------+
  25. | END: test_oss_output.e                                                    |
  26. +==========================================================================*/
  27.